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-- file: TimeDefs.Mesa 

-- last edited by Johnsson, March 21, 1977 3:17 PM 

DIRECTORY 

InlineDefs: FROM "inlinedefs'*; 

TimeDefs: DEFINITIONS « 
BEGIN 

StartWeekDay: PRIVATE INTEGER « 1; -- Jan, 1, 1901 was a Tuesday 
DstStart: PRIVATE INTEGER « 115; — on or after Apr. 24 

DstLast: PRIVATE INTEGER = 299; — on or after Oct. 25 
BaseYear: PRIVATE INTEGER = 1901; 
DaysInFourYears: PRIVATE INTEGER = 4*365+1; 

-- DefaultTime: PackedTime « [0,0]; 

PackedTime: TYPE = In! ineDef s.LongCAROINAL; 

UnpackedTime: TYPE = RECORD [ 

year: [0..2050], -- base year is 1901 

month: [0..12), -- January = 

day: [0..31], -- first day of month * 1 

hour: [0..24), 

minute: [0..60), 

second: [0..60), 

dst: BOOLEAN]; -- currently always returned FALSE 

CurrentDayTime: PROCEDURE RETURNS [PackedTime]; 

UnpackDT: PROCEDURE [PackedTime] RETURNS [UnpackedTime]; 

InvalidTime: ERROR; 

PackDT: PROCEDURE [UnpackedTime] RETURNS [PackedTime]; 

AppendDayTime: PROCEDURE [STRING. UnpackedTime]; -- 12-JAN-77 12:34 

DayOfWeek: PROCEDURE [PackedTime] RETURNS [[0..7)]; -- Monday = 

END,.. 


